<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2879</cardID>
<listID>2248</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>160</width>
<height>72</height>
</cardSize>
<script>on controlKey keyif key is 23 and short name of this stack ‚↠spider then -- wput the optionKey is down into oif o thenanswer "Weave all cards of this Stack ?" with "Cancel","Weave"if it is "Cancel" then exit controlKey --‚àÜend ifweaveStack not oif the result is not empty thenanswer the resultend ifelse pass controlKeyend controlKeyon weaveStack cardOnlyset cursor to busyif the version < 2.3 thenreturn "Sorry, weaving requires HyperCard (Player) 2.3 or later." --‚àÜend if--if ":truePrint" & return is not in the stacksInUse thenstart using stack "truePrint"if the result is not empty thenreturn "Sorry, weaving requires the truePrint stack." --‚àÜend ifend if--lock screenlock messagesgo stack "spider"if hilite of btn "Mac" then put return into breakelse if hilite of btn "Unix" then put numToChar(10) into breakelse put return & numToChar(10) into breakgo backunlock messagesunlock screen--put (value of word 2 of long name of this stack) && "Δí:" ¬¨into destinationFolderif there is no folder destinationFolder thencreateFolder(destinationFolder)if the result is not empty thenreturn "Could not create output folder." & return ¬¨& "CreateFolder" && the result --‚àÜend ifend if--if cardOnly thenweaveCard destinationFolder, breakif the result is not empty thenreturn the result --‚àÜend ifelsego to first cardrepeat for the number of cardsif the mouse is down then exit repeat --‚àÜweaveCard destinationFolder, breakif the result is not empty then return the result --‚àÜgo next cardend repeatend ifend weaveStackon weaveCard destinationFolder, break--put weaveCardName() into cNameput script of this card into scput word 2 of sc into extif ext‚â†"jpeg" and ext‚â†"gif" then put "gif" into extput word 3 of sc into qualityif ext is "jpeg" thenif quality‚â†"very low" and quality‚â†"low" and quality‚â†"normal" ¬¨and quality ‚â†"high" and quality‚â†"very high" thenput "normal" into qualityend ifelse put quality ‚↠"noninterlaced" into interlace--lock screenlock messagesput empty into listrepeat with i=the number of cd parts down to 1if visible of cd part i thenset cursor to busyput empty into xput long name of this card into aput long name of this stack into ssend mouseUp to cd part iif long name of this card ‚↠a thenif long name of this stack is s thenput weaveCardName() & ".html" into xend ifgo backelse if the result is not empty thenput the result into xend ifif x is not empty thenput x && rect of cd part i & return after listend ifend ifend repeat--repeat with i=the number of bg parts down to 1if visible of bg part i thenset cursor to busyput empty into xput long name of this card into aput long name of this stack into ssend mouseUp to bg part iif long name of this card ‚↠a thenif long name of this stack is s thenput weaveCardName() & ".html" into xend ifgo backelse if the result is not empty thenput the result into xend ifif x is not empty thenput x && rect of bg part i & return after listend ifend ifend repeatunlock messagesunlock screen--set cursor to busyput destinationFolder & cName & ".html" into fopen file f--write "<HTML>" & break & break & "<HEAD>" & break ¬¨& "<TITLE>" & short name of this card & "</TITLE>" & break ¬¨& "</HEAD>" & break & break to file f--write "<BODY BGCOLOR=" & quote & "#FFFFFF" & quote & ">" ¬¨& break & break to file f--write "<A HREF=" & quote & cName & ".map" & quote & ">" ¬¨& "<IMG SRC=" & quote & cName & "." & ext & quote ¬¨&& "HEIGHT=" & height of card window ¬¨&& "WIDTH=" & width of card window & break ¬¨& "USEMAP=" & quote & "#map" & quote ¬¨&& "ISMAP BORDER=0></A>" & break & break to file f--write "<MAP NAME=" & quote & "map" & quote & ">" & break to file frepeat with i=1 to the number of lines of listwrite "<AREA SHAPE=" & quote & "rect" & quote && ¬¨"COORDS=" & quote & word 2 of line i of list & quote && ¬¨"HREF=" & quote & word 1 of line i of list & quote & ">" & ¬¨break to file fend repeatwrite "</MAP>" & break & break to file fwrite "</BODY>" & break & break & "</HTML>" & break to file f--close file f--put destinationFolder & cName & ".map" into fopen file frepeat with i=1 to the number of lines of listwrite "rect" && word 1 of line i of list && ¬¨item 1 to 2 of word 2 of line i of list && ¬¨item 3 to 4 of word 2 of line i of list & break to file fend repeatclose file f--set cursor to busyput trueScreenshot() into fif word one of f is not "ok" thenreturn "Could not take screenshot." & return & f --‚àÜend ifdelete word one of f--set cursor to busyput "tell application" && quote & "clip2gif" & quote & return into s--put "save file" && quote & f & quote && "as " after sif ext is "jpeg" then put "JPEG" after selse put "GIF" after s--put " in file" && quote & destinationFolder & cName ¬¨& "." & ext & quote after sput " crop {" && rect of card window && "}" after sif ext is "jpeg" then put " quality" && quality after s--put " depth 8 transparency no scale 100" ¬¨&& "colors palette input colors" after sif ext is "gif" then put " interlacing" && interlace after sput return & "end tell" after s--if the optionKey is down then answer sdo s as AppleScript--set cursor to busyeraseFile fif the result is not empty thenreturn "Could not erase screen shot." ¬¨& return & "eraseFile" && the result --‚àÜend ifend weaveCardfunction weaveCardNameput short name of this card into aput empty into cNamerepeat with i=1 to the number of words of aput word i of a after cNameend repeatreturn cNameend weaveCardName</script>
